home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / amigae.0294feb.archive / 000074_donews!crash!p…s.nott.ac.uk!dp_Fri, 18 Feb 94 06:24:03 PST.msg < prev    next >
Internet Message Format  |  1994-05-26  |  3KB
  1. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  2.       id <1v48@bkhouse.cts.com>; Fri, 18 Feb 94 06:24:03 PST
  3. Received: from crash by donews.cts.com with uucp
  4.     (Smail3.1.28.1 #18) id m0pXC7E-0002VRC; Thu, 17 Feb 94 12:02 EST
  5. Received: from Cs.Nott.AC.UK by crash.cts.com with smtp
  6.     (Smail3.1.28.1 #18) id m0pXBwV-0000n3C; Thu, 17 Feb 94 08:51 PST
  7. Received: from piaggio.maths.nott.ac.uk by marian.Cs.Nott.AC.UK id aa02329;
  8.           17 Feb 94 15:31 GMT
  9. Date: Thu, 17 Feb 94 15:30:49 GMT
  10. Message-Id: <651.9402171530@piaggio.maths.nott.ac.uk>
  11. From: Darren Parr <dp@maths.nott.ac.uk>
  12. To: AmigaE@bkhouse.cts.com
  13. Cc: dp@maths.nott.ac.uk
  14. Subject: Re:  FAE update
  15.  
  16. A Very good one to try is TDS - The twilight Development system
  17. This program suits all sort of needs for compilers which are called thro
  18. the CLI
  19.  
  20. In fact its excellent!!
  21.  
  22. BoomBoom (mexaland)
  23. dp@maths.nott.ac.uk
  24. From donews!crash!piaggio.maths.nott.ac.uk!maths.nott.ac.uk!dp Fri, 18 Feb 94 06:24:17 PST
  25. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  26.       id <1v4j@bkhouse.cts.com>; Fri, 18 Feb 94 06:24:17 PST
  27. Received: from crash by donews.cts.com with uucp
  28.     (Smail3.1.28.1 #18) id m0pXCZs-0002VRC; Thu, 17 Feb 94 12:31 EST
  29. Received: from Cs.Nott.AC.UK by crash.cts.com with smtp
  30.     (Smail3.1.28.1 #18) id m0pXCJs-00008xC; Thu, 17 Feb 94 09:15 PST
  31. Received: from piaggio.maths.nott.ac.uk by marian.Cs.Nott.AC.UK id aa14998;
  32.           17 Feb 94 16:55 GMT
  33. Date: Thu, 17 Feb 94 16:54:59 GMT
  34. Message-Id: <2122.9402171654@piaggio.maths.nott.ac.uk>
  35. From: Darren Parr <dp@maths.nott.ac.uk>
  36. To: amigae@bkhouse.cts.com, problems@maths.nott.ac.uk
  37. Subject: asl
  38.  
  39.  
  40.  
  41.  
  42.  
  43. Hello - Here is the full code it crashes at the line with AllocAslRequest() in
  44. I would appreciate it if someone can handle this and tell me whats wrong with
  45. it.
  46. -------------------------------------------------------------------------------
  47.  
  48. MODULE 'libraries/asl','asl','utility/tagitem'
  49.  
  50. PROC request()
  51.  
  52. DEF fr,fl,aslbase
  53.  
  54. aslbase := OpenLibrary('asl.library',37)
  55.  
  56. IF aslbase
  57.  
  58.    fr := AllocAslRequest(ASL_FILEREQUEST,[ASL_HAIL,'Choose an Icon',TAG_DONE])
  59.    
  60.    IF fr
  61.        fl := AslRequest(fr,NIL)
  62.    ENDIF
  63.   
  64. IF fl THEN RETURN fr
  65.  
  66.   WriteF('Fatal Error with requester!!\n')
  67.   CloseLibrary(aslbase)
  68. ELSE
  69.   WriteF('Couldnt open asl.library.\n')
  70. ENDIF
  71. CleanUp(5)
  72. ENDPROC
  73.  
  74. PROC main()
  75.  
  76. DEF filereq:PTR TO filerequestr
  77. filereq := request()
  78. IF filereq THEN WriteF('well you picked one\n')
  79. CleanUp(0)
  80. ENDPROC
  81. -------------------------------------------------------------------------------
  82.  
  83. Thanks
  84. Darren.